'
' Walking Test
'

for a = 1 to 8
open "assets/" + str$(a) + ".png" as #a
next a

a = 1
x = 0
while 1
cls
gosub moveman1
gosub moveman2
gosub moveman3
gosub moveman4
gosub moveman5
gosub moveman6
delay 75
if inkey = chr$(27) then exit
wend

for a = 1 to 8
close #a
next

end

label moveman1
i = image(#a)
i.show(x,0)
a = a + 1
x = x + 4
if x > xmax then x = -90
if a = 9 then a = 1
return

label moveman2
j = image(#a)
j.show(x2,75)
a2 = a2 + 1
x2 = x2 + 5
if x2 > xmax then x2 = -90
if a2 = 9 then a2 = 1
return

label moveman3
k = image(#a)
k.show(x3,150)
a3 = a3 + 1
x3 = x3 + 6
if x3 > xmax then x3 = -90
if a3 = 9 then a3 = 1
return

label moveman4
l = image(#a)
l.show(x4,225)
a4 = a4 + 1
x4 = x4 + 7
if x4 > xmax then x4 = -90
if a4 = 9 then a4 = 1
return

label moveman5
m = image(#a)
m.show(x5,300)
a5 = a5 + 1
x5 = x5 + 8
if x5 > xmax then x5 = -90
if a5 = 9 then a5 = 1
return

label moveman6
n = image(#a)
n.show(x6,375)
a6 = a6 + 1
x6 = x6 + 9
if x6 > xmax then x6 = -90
if a6 = 9 then a6 = 1
return

for a = 1 to 8
close #a
next